home *** CD-ROM | disk | FTP | other *** search
/ Secrets of Stargate / STARGATE.iso / mac / STARGATE (5MB Macintosh) / STARGATE (5MB Macintosh).DXR / 00114.ls < prev    next >
Encoding:
Text File  |  1994-10-19  |  399 b   |  17 lines
  1. on mouseUp
  2.   global gPlayList, gMusicOn
  3.   set theLine to the mouseLine
  4.   set theSound to line theLine of field "PLAYLIST.3"
  5.   if theSound = EMPTY then
  6.     exit
  7.   end if
  8.   stopAiff()
  9.   hilite line theLine of field "PLAYLIST.3"
  10.   set gPlayList to theSound
  11.   set gPlayState to 0
  12.   hilite line 999 of field "PLAYLIST.3"
  13.   set gMusicOn to 1
  14.   set the hilite of cast "Play Music" to gMusicOn
  15.   idle()
  16. end
  17.